System Booster/System Booster.iso/Disktools/Cataloger V2.71/Install_Cataloger

Text File | 1996-09-26 | 5KB | 269 lines

; $VER:  Install Cataloger V2.0 (19.01.1996)
; This Install-script contains to Cataloger V2.x ©1995/96 by Axel Deising ;

(if (= (exists "Env:Language") 1)
    ; GetEnv reports "String too long" if the variable doesn't exist! :(
    (set @language (getenv "language"))
)

;**************************************************************************
; English Installation

(set default-lang 1)

(set #bad-kick
    "You must have AmigaOS Release 3.0 or newer to use Cataloger."
)

(set #welcome
    (cat
        "\n\n\nWelcome to the Cataloger installation.\n\n"
        "   Cataloger ©1996  Axel Deising."
    )
)

(set #install-parts "Please select the parts you wish to install")

(set #item-Cataloger "Cataloger")

(set #item-Cataloger-guide "Cataloger.guide")

(set #item-locale "Translations")

(set #where-Cataloger
    (cat
        "Please select the Directory you would like Cataloger to \n"
        "be installed?\n(A directory will be created)."
    )
)

(set #which-language "Which languages should be installed?")

(set #copy "Copying %s to %s...")

;**************************************************************************
; Deutsche Installation

(if (= @language "deutsch")
    (
        (set default-lang 2)

        (set #bad-kick
            (cat
                "Tut mir Leid!\n"
                "Aber Sie müßen AmigaOS Release 3.0 oder neur haben für Cataloger."
            )
        )
        (set #welcome
            (cat
                "\n\n\nWillkommen zu der Installation von Cataloger.\n\n"
                "Cataloger ©1995/96  Axel Deising."
            )
        )

        (set #install-parts "Wählen Sie bitte die Teile, die Sie installieren wollen.")

        (set #item-Cataloger "Cataloger")

        (set #item-Cataloger-guide "Cataloger.guide")

        (set #item-locale "Kataloge")

    (set #where-Cataloger
        (cat
        "Wählen Sie bitte das Directory für Cataloger.\n"
        "(Ein Verzeichnis wird erstellt)"
        )
    )

        (set #which-language "Welche Sprache sollen installiert werden?")

        (set #copy "Kopiere %s nach %s...")
    )
)

;**************************************************************************
; the installaion script

(set @default-dest "")

; Check Kickstart version. Exit if not at least 3.0
(if (< (/ (getversion) 65536) 39)
        (abort #bad-kick)
)

(message #welcome)

(welcome)

(set install-files
    (askoptions
        (prompt #install-parts)
        (help   @askoptions-help)
        (choices
            #item-Cataloger
            #item-Cataloger-guide
            #item-locale
        )
        (default 7)
    )
)

(if (IN install-files 0)
    (set Cataloger-dest
        (askdir
            (prompt  #where-Cataloger)
            (help    @askdir-help)
            (default "WORK:")
        )
    )
)


 (set Cataloger-dest (tackon Cataloger-dest "Cataloger"))
(if ( < (exists Cataloger-dest (noreq)) 2)
 (makedir Cataloger-dest (prompt "Creating Cataloger Directory...")
 (help @makedir-help)
 (infos)
)
)

 (set Cataloger-dest2 (tackon Cataloger-dest "Catalogs"))
(if ( < (exists Cataloger-dest2 (noreq)) 2)
 (makedir Cataloger-dest2 (prompt "Creating Cataloger Directory...")
 (help @makedir-help)
 (infos)
)
)

(copyfiles
(prompt "Copy Aminet 9 - Index ?" )
(source "Catalogs/Aminet 9")
(dest   Cataloger-dest2)
(help   @copyfiles-help)
(infos)
(confirm)
)

(copyfiles
(prompt "Copy Whole Aminet - Description ?" )
(source "Catalogs/Whole Aminet.dcr")
(dest   Cataloger-dest2)
(help   @copyfiles-help)
(infos)
(confirm)
)


(if (IN install-files 1)
    (set guide-dest Cataloger-dest)
)


(set languages 0)

(if (IN install-files 2)
    (set lang
        (askoptions
            (prompt  #which-language)
            (help    @askoptions-help)
            (choices
                "English"
                "Deutsch"
            )
            (default default-lang)
        )
    )
)

; And now do the actual installation

(complete 0)

(if (IN install-files 0)
    (
        (copyfiles
            (prompt (#copy "Cataloger" Cataloger-dest))
            (source "Cataloger")
            (dest   Cataloger-dest)
            (help   @copyfiles-help)
            (infos)
            (confirm)
        )
        (copyfiles
            (prompt (#copy "Cataloger.prg" Cataloger-dest))
            (source "Cat.prefs")
            (dest   Cataloger-dest)
            (help   @copyfiles-help)
            (infos)
        )
        (copyfiles
            (prompt (#copy "Packer kopieren ?" Cataloger-dest))
            (source "Cat.packer")
            (dest   Cataloger-dest)
            (help   @copyfiles-help)
            (infos)
            (confirm)
        )


    )
)

(complete 33)

(if (IN install-files 1)
    (
        (copyfiles
            (prompt (#copy "Cataloger.guide" guide-dest))
            (source "Cataloger.guide")
            (help   @copyfiles-help)
            (dest   guide-dest)
            (infos)
            (confirm)
        )
    )
)

(complete 66)

(if (IN install-files 2)
    (
        (set n 0)

        (while
            (set language
                (select n
                    "English"
                    "Deutsch"
                    ""
                )
            )

            (
                (if (AND (IN lang n) (<> 0 n))
                    (
                        (set catalog
;                            (tackon "Catalogs"
                                (tackon language "Cataloger.catalog")
;                            )
                        )
                        (set destination (tackon "Locale:Catalogs" language))

                        (copylib
                            (prompt (#copy catalog destination))
                            (source catalog)
                            (dest   destination)
                        )
                    )
                )

                (set n (+ n 1))
            )
        )
    )
)

(complete 100)
(exit)